home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / math / nrpas13 / fpoly.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-29  |  297 b   |  14 lines
  1. PROCEDURE fpoly(x: real; VAR p: glnparray; np: integer);
  2. (* Programs using routine FPOLY must define the type
  3. TYPE
  4.    glnparray = ARRAY [1..np] OF real;
  5. in the main routine.   *)
  6. VAR
  7.    j: integer;
  8. BEGIN
  9.    p[1] := 1.0;
  10.    FOR j := 2 TO np DO BEGIN
  11.       p[j] := p[j-1]*x
  12.    END
  13. END;
  14.